home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Games / Strategy / Puzzle / GameMaster / GM Dev Kit / Pascal Units / Failure.p < prev    next >
Encoding:
Text File  |  1991-09-23  |  797 b   |  41 lines  |  [TEXT/PJMM]
  1. unit Failure;
  2.  
  3. { ©1991 Quinn "The Eskimo" }
  4.  
  5. interface
  6.  
  7.     uses
  8.         NumSubs;
  9.  
  10.     procedure Failure (mesg: str255);
  11.     procedure FailNil (p: univ Handle; mesg: str255);
  12.     procedure FailResError (mesg: str255);
  13.     procedure FailOSError (err: OSErr; mesg: str255);
  14.  
  15. implementation
  16.  
  17.     procedure Failure (mesg: str255);
  18.     begin
  19.         DebugStr(concat('Fail - ', mesg));
  20.     end; { Failure }
  21.  
  22.     procedure FailNil (p: univ Handle; mesg: str255);
  23.     begin
  24.         if p = nil then begin
  25.             Failure(mesg);
  26.         end; { if }
  27.     end; { FailNil }
  28.  
  29.     procedure FailOSError (err: OSErr; mesg: str255);
  30.     begin
  31.         if err <> noErr then begin
  32.             Failure(concat(mesg, '(', DecStr(err), ')'));
  33.         end; { if }
  34.     end; { FailOSError }
  35.  
  36.     procedure FailResError (mesg: str255);
  37.     begin
  38.         FailOSError(ResError, mesg);
  39.     end; { FailResError }
  40.  
  41. end. { Failure - now! }